home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / WINDOWS / SIMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-01  |  1KB  |  34 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; simple windows
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBINI, EFLIBWIN, EFLIBKBD, EFLIBMSE;
  10.  
  11. var WindowWithView : WindowObjectType;
  12.  
  13.  
  14. begin
  15.      with WindowWithView do begin
  16.           Initialize;                               { Initialize object }
  17.           SetCoordinates (10, 5, 70, 20);           { Set coordinates }
  18.           MaximizeTextCoordinates;                  { Use window for text only }
  19.           SetBorder (DoubleBorder);                 { Set double border line }
  20.           EnableExplode;                            { Make window exploded }
  21.           DisableKeep;                              { Remove window after interception }
  22.  
  23.           Draw;                                     { Draw this window }
  24.  
  25.           { Above lines could be replaced with the much shorter command:
  26.             InitializeWindow (10, 5, 70, 20, 'My window with view', DoubleBorder, TRUE, FALSE);}
  27.  
  28.           repeat
  29.                 Write ('@Yellow:Blue@EFLIB introduces a new world of programming.');
  30.           until Keyboard.KeyPressed or Mouse.ButtonPressed;
  31.  
  32.           Intercept;
  33.      end;
  34. end.